home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / wcads60.zip / WCADS.WCX (.txt) < prev   
Wildcat! WCX  |  1995-03-02  |  26KB  |  758 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  26188 bytes  01/29/123  04:30:16pm
  3. '! Code Segment Size  :17645 bytes
  4. '! Data Segment Size  :13638 bytes
  5. '! String Segment Size:8543 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Type Type27
  9.         Filler0(1 To 6) As Byte
  10.         s6 As String*70
  11.         Filler76(1 To 14) As Byte
  12.         s90 As String*70
  13.         Filler160(1 To 14) As Byte
  14.         s174 As String*70
  15.         Filler244(1 To 20) As Byte
  16.         w264 As Word
  17.       End Type
  18.  
  19.       Type Type26
  20.         s0 As String*25
  21.         s25 As String*3
  22.         s28 As String*29
  23.         s57 As String*13
  24.         s70 As String*13
  25.         s83 As String*8
  26.         s91 As String*13
  27.       End Type
  28.  
  29.       Dim s4463 As String
  30.       Dim s4467 As String
  31.       Dim l4471 As Long
  32.       Dim s4475 As String
  33.       Dim mh4479 As MessageHeader
  34.       Dim s4799 As String
  35.       Dim s4803 As String
  36.       Dim i4807 As Integer
  37.       Dim s4809 As String
  38.       Dim s4813 As String
  39.       Dim s4817 As String
  40.       Dim s4821 As String
  41.       Dim s4825 As String
  42.       Dim l4829 As Long
  43.       Dim s4833 As String
  44.       Dim i4837 As Integer
  45.       Dim s4839 As String
  46.       Dim t26_4843 As Type26
  47.       Dim s4949 As String
  48.       Dim i4953 As Integer
  49.       Dim s4955 As String
  50.       Dim s4959 As String
  51.       Dim s4963 As String
  52.       Dim s4967 As String
  53.       Dim s4971 As String
  54.       Dim s4975 As String
  55.       Dim s4979 As String
  56.       Dim s4993 As String
  57.       Dim s4997 As String
  58.       Dim s5001 As String
  59.       Dim s5005 As String
  60.       Dim s5009 As String
  61.       Dim i5013 As Integer
  62.       Dim i5015 As Integer
  63.       Dim s5017(1 To 99) As String
  64.       Dim sr5413 As SearchRec
  65.       Dim s5462 As String
  66.       Dim i5466 As Integer
  67.       Dim s5468 As String
  68.       Dim s5472 As String
  69.       Dim s5476 As String
  70.       Dim i5480 As Integer
  71.       Dim s5482 As String
  72.       Dim sr5486 As SearchRec
  73.       Dim i5535 As Integer
  74.       Dim s5537(1 To 999) As String
  75.       Dim s9533(1 To 999) As String
  76.       Dim s13529 As String
  77.       Dim s13533 As String
  78.       Dim i13537 As Integer
  79.       Dim i13539 As Integer
  80.       Dim s13541(1 To 10) As String
  81.       Dim i13581 As Integer
  82.       Dim s13583 As String
  83.       Dim i13587 As Integer
  84.       Dim sr13589 As SearchRec
  85.  
  86.       Dim l65514_ As Long
  87.       Dim i65518_ As Integer
  88.       Dim s65520_ As String
  89.       Dim s65524_ As String
  90.       Dim s65528_ As String
  91.       Dim s65532_ As String
  92.  
  93.       s4467 = "6.0"
  94.       If Exists("WCADS.CFG") Then
  95.       Else
  96.         Do
  97.    69     Cls 
  98.           Print "Configuration Info Not Found.  Loading Setup Module.  Please Wait."
  99.           Delay 3
  100.           s4803 = InputMask("Complete DOS Path To wcADS Directory:     ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "C:\WILDCAT\WCADS\", 1213417543)
  101.           If s4803 = "" Then
  102.             End 
  103.           End If
  104.   134     If Right(s4803, 1) <> "\" Then
  105.             s4803 = s4803 + "\"
  106.           End If
  107.   171     i4807 = InputNumber("Local E-Mail Conference:                  ", 0, 32000)
  108.           l4471 = InputNumber("wcADS REGISTRATION #: (or @0F@00000000@0E@)       ", 0, 99999999)
  109.           s4809 = InputMask("Advertiser's Security Level #1:           ", "XXXXXXXXXX", "", 1213417543)
  110.           s4813 = InputMask("Advertiser's Security Level #2:           ", "XXXXXXXXXX", "", 1213417543)
  111.           s4817 = InputMask("Advertiser's Security Level #3:           ", "XXXXXXXXXX", "", 1213417543)
  112.           s4821 = InputMask("Advertiser's Security Level #4:           ", "XXXXXXXXXX", "", 1213417543)
  113.           s4825 = InputMask("Advertiser's Security Level #5:           ", "XXXXXXXXXX", "", 1213417543)
  114.           If s4809 = "" Then
  115.             s4809 = "SYSOP"
  116.           End If
  117.   368     If s4813 = "" Then
  118.             s4813 = "SYSOP"
  119.           End If
  120.   394     If s4817 = "" Then
  121.             s4817 = "SYSOP"
  122.           End If
  123.   420     If s4821 = "" Then
  124.             s4821 = "SYSOP"
  125.           End If
  126.   446     If s4825 = "" Then
  127.             s4825 = "SYSOP"
  128.           End If
  129.   472     Print ""
  130.           If (Not InputYesNo("Is everything correct?  ", 1213417543)) = 0 Then GoTo 508
  131.         Loop
  132.   508   Open "WCADS.CFG" For Output As 3
  133.         Print #3, UCase(s4803)
  134.         Print #3, Str(i4807)
  135.         Print #3, l4471
  136.         Print #3, UCase(s4809)
  137.         Print #3, UCase(s4813)
  138.         Print #3, UCase(s4817)
  139.         Print #3, UCase(s4821)
  140.         Print #3, UCase(s4825)
  141.         Close 3
  142.         If Exists("WCADS.CFG") Then
  143.         Else
  144.   648     End 
  145.         End If
  146.       End If
  147.   649 Open "WCADS.CFG" For Input As 1
  148.       Input #1, s4803
  149.       Input #1, i4807
  150.       Input #1, l4471
  151.       Input #1, s4809
  152.       Input #1, s4813
  153.       Input #1, s4817
  154.       Input #1, s4821
  155.       Input #1, s4825
  156.       Close 1
  157.       s4475 = Right(MakeWild.RegString, 2)
  158.       l4829 = Val(s4475) * Val(s4475) * 340 + 1000000
  159.       If l4829 <> l4471 Then
  160.         s4463 = "UNREGISTERED"
  161.       Else
  162.   818   s4463 = "REGISTERED"
  163.       End If
  164.       Do
  165.         Do
  166.           Do
  167.             Do
  168.               Do
  169.                 Do
  170.                   Do
  171.                     Do
  172.                       Do
  173.                         Do
  174.                           Do
  175.                             Do
  176.                               Do
  177.                                 Do
  178.                                   Do
  179.                                     Do
  180.   827                                 If s4463 <> "REGISTERED" Then
  181.                                         StatusOpen 1
  182.                                         StatusWrite "   $25.00 to:  Online Real Estate * POBox 560653 * Charlotte, NC 28256-0653", 1213417543, 1213417543, 1213417543
  183.                                       End If
  184.   872                                 Cls 
  185.                                       If Exists(s4803 + "ADSMAIN.BBS") Then
  186.                                         DisplayTextFile(s4803 + "ADSMAIN.BBS")
  187.                                       Else
  188.   916                                   Print "ADSMAIN.BBS Not Found In " + UCase(s4803)
  189.                                         Print ""
  190.                                         WaitEnter 
  191.                                         End 
  192.                                       End If
  193.   947                                 Color 8, 0
  194.                                       If s4463 = "REGISTERED" Then
  195.                                         StatusOpen 1
  196.                                         StatusWrite "   wcADS " + s4467 + "  " + s4463 + "  COPYRIGHT (C) 1995  Online Real Estate Consulting", 1213417543, 1213417543, 1213417543
  197.                                       End If
  198.  1024                                 Print ""
  199.                                       Color 14, 0
  200.                                       Print "  Your Command:  ";
  201.                                       Input s4833
  202.                                       If UCase(s4833) = "X" Then
  203.                                         If s4463 <> "REGISTERED" Then
  204.                                           Color 14, 0
  205.                                           Print "  Please ";
  206.                                           Delay 0.1
  207.                                           Beep 
  208.                                           Delay 0.25
  209.                                           Print "Register ";
  210.                                           Delay 0.1
  211.                                           Beep 
  212.                                           Beep 
  213.                                           Beep 
  214.                                           Delay 0.25
  215.                                           Print "This ";
  216.                                           Delay 0.1
  217.                                           Beep 
  218.                                           Delay 0.25
  219.                                           Print "Copy ";
  220.                                           Delay 0.1
  221.                                           Beep 
  222.                                           Beep 
  223.                                           Delay 0.25
  224.                                           Print "Of ";
  225.                                           Delay 0.1
  226.                                           Beep 
  227.                                           Delay 0.25
  228.                                           Color 15, 0
  229.                                           Print "wcADS! "
  230.                                           Delay 0.1
  231.                                           Beep 
  232.                                           Beep 
  233.                                           Beep 
  234.                                           Delay 5
  235.                                         End If
  236.  1286                                   StatusClose 
  237.                                         End 
  238.                                       End If
  239.  1290                                 If UCase(s4833) = "A" Then
  240.                                         GoTo 1665
  241.                                       End If
  242.  1316                                 If UCase(s4833) = "D" Then
  243.                                         GoTo 1665
  244.                                       End If
  245.  1342                                 If UCase(s4833) = "E" Then
  246.                                         GoTo 1665
  247.                                       End If
  248.  1368                                 If UCase(s4833) = "R" Then
  249.                                         GoTo 2667
  250.                                       End If
  251.  1394                                 If s4833 = "?" Then
  252.                                         DisplayTextFile(s4803 + "ADSHELP.BBS")
  253.                                         Print ""
  254.                                         WaitEnter 
  255.                                       End If
  256.  1438                                 If UCase(s4833) = "C" Then
  257.                                         Comment 
  258.                                       End If
  259.  1461                                 If UCase(s4833) = "I" Then
  260.                                         If s4463 = "REGISTERED" Then
  261.                                           SendFile(s4803 + "INFO.ZIP", 1213417543)
  262.                                         Else
  263.  1524                                     Locate 20, 3
  264.                                           Print "@0E@This feature not available in the @0F@UNREGISTERED @0E@version."
  265.                                           Delay 3
  266.                                         End If
  267.                                       End If
  268.  1548                                 If UCase(s4833) = "P" Then
  269.                                         PageSysop 
  270.                                       End If
  271.  1571                                 If (UCase(s4833) >= "1" And UCase(s4833) <= "999") = 0 Then GoTo 1659
  272.                                       If s4463 = "REGISTERED" Then
  273.                                         GoTo 1653
  274.                                       End If
  275.  1630                                 If (Val(s4833) > 5) = 0 Then GoTo 1653
  276.                                     Loop
  277.  1653                               GoTo 6686
  278.  1659                             Loop
  279.                                   Do
  280.  1665                               If (UCase(User.SecLevel) = UCase(s4809) Or UCase(User.SecLevel) = UCase(s4813) Or UCase(User.SecLevel) = UCase(s4817) Or UCase(User.SecLevel) = UCase(s4821) Or UCase(User.SecLevel) = UCase(s4825) Or UCase(User.SecLevel) = "SYSOP") = 0 Then GoTo 2497
  281.                                     If Exists(s4803 + "WCADS.SEC") Then
  282.                                       Open s4803 + "WCADS.SEC" For Random As 3 Len = 104 '! This value should probably be replaced with a "SizeOf" expression
  283.                                       i4837 = 0
  284.                                       Do
  285.  1863                                   i4837 = i4837 + 1
  286.                                         Get 3, i4837, t26_4843 '! 104 bytes
  287.                                         If UCase(User.Name) = UCase(t26_4843.s0) Then
  288.                                           Close 3
  289.                                           GoTo 2526
  290.                                         End If
  291.  1933                                 Loop While Not EOF(3)
  292.                                       Close 3
  293.                                     End If
  294.  1951                               Cls 
  295.                                     Print "@08@┌───────────────────────────────────────────────────────────────────────────┐"
  296.                                     Print "@08@│┌─────────────────────────────────────────────────────────────────────────┐│"
  297.                                     Print "@08@││                       @0F@ Welcome New Advertiser!                       @08@   ││"
  298.                                     Print "@08@││      @0E@Please take a few minutes to enter your contact information     @08@   ││"
  299.                                     Print "@08@││          @0E@as you would like it to appear on all of your ads.          @08@   ││"
  300.                                     Print "@08@││ @0F@You will be asked to enter:                                          @08@   ││"
  301.                                     Print "@08@││   @0E@Your company name:                                                 @08@   ││"
  302.                                     Print "@08@││   @0E@Office phone number:                                               @08@   ││"
  303.                                     Print "@08@││   @0E@Home phone number:                                                 @08@   ││"
  304.                                     Print "@08@││   @0E@Optional phone number type:   @0F@(FAX, Pager, BBS, etc)               @08@   ││"
  305.                                     Print "@08@││   @0E@Optional phone number:                                             @08@   ││"
  306.                                     Print "@08@│└─────────────────────────────────────────────────────────────────────────┘│"
  307.                                     Print "@08@└───────────────────────────────────────────────────────────────────────────┘"
  308.                                     Print ""
  309.                                     t26_4843.s0 = User.Name
  310.                                     t26_4843.s28 = InputMask("Enter your company:       ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  311.                                     If t26_4843.s28 = "" Then
  312.                                       t26_4843.s28 = "N/A"
  313.                                     End If
  314.  2167                               t26_4843.s57 = InputMask("Enter your office phone:  ", "XXXXXXXXXXXXX", "", 1213417543)
  315.                                     If t26_4843.s57 = "" Then
  316.                                       t26_4843.s57 = "N/A"
  317.                                     End If
  318.  2238                               t26_4843.s70 = InputMask("Enter your home phone:    ", "XXXXXXXXXXXXX", "", 1213417543)
  319.                                     If t26_4843.s70 = "" Then
  320.                                       t26_4843.s70 = "N/A"
  321.                                     End If
  322.  2309                               t26_4843.s83 = InputMask("Optional phone type:      ", "XXXXXXXX", "", 1213417543)
  323.                                     t26_4843.s91 = InputMask("Optional phone number:    ", "XXXXXXXXXXXXX", "", 1213417543)
  324.                                     If t26_4843.s91 = "" Then
  325.                                       t26_4843.s91 = "N/A"
  326.                                     End If
  327.  2413                               Open s4803 + "WCADS.SEC" For Random As 1 Len = 104 '! This value should probably be replaced with a "SizeOf" expression
  328.                                     t26_4843.s25 = Str(LOF(1) + 1)
  329.                                     Put 1, LOF(1) + 1, t26_4843 '! 104 bytes
  330.                                     Close 1
  331.                                   Loop
  332.                                   GoTo 2520
  333.  2497                             Color 14, 0
  334.                                   Print "Your present security level does not allow you to enter advertisements."
  335.                                   Delay 3
  336.  2520                           Loop
  337.  2526                           Locate 20, 3
  338.                                 s4949 = InputMask("Please enter your catagory [@0F@###@0E@], or [@0F@ENTER@0E@] to quit.  ", "XXX", "", 1213417543)
  339.                                 If (s4949 = "") = 0 Then GoTo 2583
  340.                               Loop
  341.  2583                         If UCase(s4833) = "A" Then
  342.                                 GoTo 3819
  343.                               End If
  344.  2609                         If UCase(s4833) = "D" Then
  345.                                 GoTo 3219
  346.                               End If
  347.  2635                         If UCase(s4833) = "E" Then
  348.                                 GoTo 5284
  349.                               End If
  350.  2661                       Loop
  351.  2667                       Cls 
  352.                             If (Exists(s4803 + "WCADS.SEC")) = 0 Then GoTo 2816
  353.                             Open s4803 + "WCADS.SEC" For Random As 3 Len = 104 '! This value should probably be replaced with a "SizeOf" expression
  354.                             i4837 = 0
  355.                             Do
  356.  2722                         i4837 = i4837 + 1
  357.                               Get 3, i4837, t26_4843 '! 104 bytes
  358.                               If UCase(User.Name) = UCase(t26_4843.s0) Then
  359.                                 Close 3
  360.                                 GoTo 2816
  361.                               End If
  362.  2792                       Loop While Not EOF(3)
  363.                             Close 3
  364.                           Loop
  365.  2816                     t26_4843.s0 = User.Name
  366.                           t26_4843.s28 = InputMask("Enter your company:       ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  367.                           If t26_4843.s28 = "" Then
  368.                             t26_4843.s28 = "N/A"
  369.                           End If
  370.  2903                     t26_4843.s57 = InputMask("Enter your office phone:  ", "XXXXXXXXXXXXX", "", 1213417543)
  371.                           If t26_4843.s57 = "" Then
  372.                             t26_4843.s57 = "N/A"
  373.                           End If
  374.  2974                     t26_4843.s70 = InputMask("Enter your home phone:    ", "XXXXXXXXXXXXX", "", 1213417543)
  375.                           If t26_4843.s70 = "" Then
  376.                             t26_4843.s70 = "N/A"
  377.                           End If
  378.  3045                     t26_4843.s83 = InputMask("Optional phone type:      ", "XXXXXXXX", "", 1213417543)
  379.                           t26_4843.s91 = InputMask("Optional phone number:    ", "XXXXXXXXXXXXX", "", 1213417543)
  380.                           If t26_4843.s91 = "" Then
  381.                             t26_4843.s91 = "N/A"
  382.                           End If
  383.  3149                     Open s4803 + "WCADS.SEC" For Random As 1 Len = 104 '! This value should probably be replaced with a "SizeOf" expression
  384.                           t26_4843.s25 = Str(i4837)
  385.                           Put 1, i4837, t26_4843 '! 104 bytes
  386.                           Close 1
  387.                         Loop
  388.  3219                   s4955 = InputMask("Please enter ad number to be deleted, or [@0F@Q@0E@]uit  :  ", "XXXXXXXX", "", 1213417543)
  389.                         If (UCase(s4955) = "Q") = 0 Then GoTo 3272
  390.                       Loop
  391.  3272                 If (Exists(s4803 + s4955 + "." + s4949)) = 0 Then GoTo 3790
  392.                       Open s4803 + s4955 + "." + s4949 For Input As 5
  393.                       Input #5, s4959
  394.                       Input #5, s4963
  395.                       Input #5, s4967
  396.                       Input #5, s4971
  397.                       Input #5, s4975
  398.                       Input #5, s4979
  399.                       Input #5, s4993
  400.                       Input #5, s4997
  401.                       Input #5, s5001
  402.                       Input #5, s5005
  403.                       Input #5, s4839
  404.                       Close 5
  405.                       If (Val(s4839) = i4837) = 0 Then GoTo 3761
  406.                       Del s4803 + s4955 + "." + s4949
  407.                       s5462 = s4803 + s4949 + "-" + s4955 + ".*"
  408.                       i5466 = FindFirst(s5462, 0, sr5413)
  409.                       i5013 = 1
  410.                       i5015 = 0
  411.  3533                 Do While i5466 = 0
  412.                         i5015 = i5015 + 1
  413.                         s5017(i5015) = sr5413.Name
  414.                         Del s4803 + s5017(i5015)
  415.                         Color 15, 0
  416.                         Print s5017(i5015) + " @0E@has been deleted."
  417.                         i5466 = FindNext(sr5413)
  418.                         i5013 = i5013 + 1
  419.                       Loop
  420.  3727                 i5013 = i5013 - 1
  421.                       Delay 3
  422.                     Loop
  423.                     GoTo 3784
  424.  3761               Print "You do not have access to delete this ad."
  425.                     Delay 3
  426.                   Loop
  427.  3784             GoTo 3813
  428.  3790             Print "This ad does not exist."
  429.                   Delay 3
  430.                 Loop
  431.  3813         Loop
  432.  3819         s4959 = ""
  433.               s4963 = ""
  434.               s4967 = ""
  435.               s4971 = ""
  436.               s4975 = ""
  437.               s4979 = ""
  438.               s4993 = ""
  439.               s4997 = ""
  440.               s5001 = ""
  441.               s5005 = ""
  442.               Cls 
  443.               Print "Please enter your 10-line advertisement:"
  444.               s4959 = InputMask(" @0F@Desc1@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4959, 1213417543)
  445.               s4963 = InputMask(" @0F@Desc2@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4963, 1213417543)
  446.               s4967 = InputMask(" @0F@Desc3@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4967, 1213417543)
  447.               s4971 = InputMask(" @0F@Desc4@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4971, 1213417543)
  448.               s4975 = InputMask(" @0F@Desc5@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4975, 1213417543)
  449.               s4979 = InputMask(" @0F@Desc6@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4979, 1213417543)
  450.               s4993 = InputMask(" @0F@Desc7@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4993, 1213417543)
  451.               s4997 = InputMask(" @0F@Desc8@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4997, 1213417543)
  452.               s5001 = InputMask(" @0F@Desc9@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s5001, 1213417543)
  453.               s5005 = InputMask("@0F@Desc10@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s5005, 1213417543)
  454.               s4839 = Str(i4837)
  455.               Print "[@0F@S@0E@]ave ad, [@0F@K@0E@]ill ad:  ";
  456.               Do
  457.                 Do
  458.  4202             s5468 = InKey(1213417543)
  459.                 Loop Until s5468 <> ""
  460.                 s65532_ = UCase(s5468)
  461.                 If s65532_ = "S" Then
  462.                   If Exists(s4803 + s4949 + ".NUM") Then
  463.                     Open s4803 + s4949 + ".NUM" For Input As 1
  464.                     Input #1, i4953
  465.                     Close 1
  466.                   Else
  467.  4336               i4953 = 0
  468.                   End If
  469.  4342             i4953 = i4953 + 1
  470.                   Open s4803 + Str(i4953) + "." + s4949 For Output As 4
  471.                   Print #4, s4959
  472.                   Print #4, s4963
  473.                   Print #4, s4967
  474.                   Print #4, s4971
  475.                   Print #4, s4975
  476.                   Print #4, s4979
  477.                   Print #4, s4993
  478.                   Print #4, s4997
  479.                   Print #4, s5001
  480.                   Print #4, s5005
  481.                   Print #4, s4839
  482.                   Close 4
  483.                   Open s4803 + s4949 + "-" + Str(i4953) + ".TXT" For Output As 4
  484.                   Print #4, "   " + s4959
  485.                   Print #4, "   " + s4963
  486.                   Print #4, "   " + s4967
  487.                   Print #4, "   " + s4971
  488.                   Print #4, "   " + s4975
  489.                   Print #4, "   " + s4979
  490.                   Print #4, "   " + s4993
  491.                   Print #4, "   " + s4997
  492.                   Print #4, "   " + s5001
  493.                   Print #4, "   " + s5005
  494.                   Print #4, "   " + s5009
  495.                   Print #4, ""
  496.                   Print #4, "CONTACT: " + Pad(t26_4843.s0, 25) + "  COMPANY: " + Pad(t26_4843.s28, 29)
  497.                   Print #4, "OFFICE: " + Pad(t26_4843.s57, 13) + "      HOME: " + Pad(t26_4843.s70, 13) + "   " + LeftPad(t26_4843.s83, 8) + ":  " + Pad(t26_4843.s91, 13)
  498.                   Print #4, ""
  499.                   Print #4, ""
  500.                   Print #4, "Information provided by advertiser and is subject to verification by user."
  501.                   Print #4, Chr(12)
  502.                   Close 4
  503.                   Open s4803 + s4949 + ".NUM" For Output As 1
  504.                   Print #1, i4953
  505.                   Close 1
  506.                   Print ""
  507.                   If InputYesNo("Would you like to upload an attachment?  ", 1213417543) Then
  508.                     Print "Basic Instructions"
  509.                     s4799 = InputMask("Please enter the file type: [@0F@GIF@0E@], [@0F@PCX@0E@], [@0F@BMP@0E@], etc:  ", "XXX", "", 1213417543)
  510.                     ReceiveFile(s4803 + s4949 + "-" + Str(i4953) + "." + s4799, 1213417543)
  511.                     Print "Received:  @0F@" + UCase(s4949) + "-" + Str(i4953) + "." + UCase(s4799)
  512.                     Delay 3
  513.                   End If
  514.  5147             GoTo 827
  515.                 Else
  516.  5159             If s65532_ = "K" Then
  517.                     s4959 = ""
  518.                     s4963 = ""
  519.                     s4967 = ""
  520.                     s4971 = ""
  521.                     s4975 = ""
  522.                     s4979 = ""
  523.                     s4993 = ""
  524.                     s4997 = ""
  525.                     s5001 = ""
  526.                     s5005 = ""
  527.                     GoTo 827
  528.                     GoTo 5278
  529.                   End If
  530.                 End If
  531.  5278         Loop
  532.  5284         s5472 = InputMask("Please enter the ad number to be edited, or [@0F@Q@0E@] to quit.  ", "XXXXXXXX", "", 1213417543)
  533.               If (UCase(s5472) = "Q") = 0 Then GoTo 5337
  534.             Loop
  535.  5337       If (Exists(s4803 + s5472 + "." + s4949)) = 0 Then GoTo 6663
  536.             Open s4803 + s5472 + "." + s4949 For Input As 5
  537.             Input #5, s4959
  538.             Input #5, s4963
  539.             Input #5, s4967
  540.             Input #5, s4971
  541.             Input #5, s4975
  542.             Input #5, s4979
  543.             Input #5, s4993
  544.             Input #5, s4997
  545.             Input #5, s5001
  546.             Input #5, s5005
  547.             Input #5, s4839
  548.             Close 5
  549.             If (Val(s4839) <> i4837) = 0 Then GoTo 5532
  550.             Print "You do not have access to edit this ad.  "
  551.             Delay 3
  552.           Loop
  553.  5532     Cls 
  554.           Print "Please enter your 10-line advertisement text:"
  555.           s4959 = InputMask(" @0F@Desc1@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4959, 1213417543)
  556.           s4963 = InputMask(" @0F@Desc2@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4963, 1213417543)
  557.           s4967 = InputMask(" @0F@Desc3@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4967, 1213417543)
  558.           s4971 = InputMask(" @0F@Desc4@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4971, 1213417543)
  559.           s4975 = InputMask(" @0F@Desc5@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4975, 1213417543)
  560.           s4979 = InputMask(" @0F@Desc6@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4979, 1213417543)
  561.           s4993 = InputMask(" @0F@Desc7@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4993, 1213417543)
  562.           s4997 = InputMask(" @0F@Desc8@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s4997, 1213417543)
  563.           s5001 = InputMask(" @0F@Desc9@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s5001, 1213417543)
  564.           s5005 = InputMask("@0F@Desc10@0E@ ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", s5005, 1213417543)
  565.           s4839 = Str(i4837)
  566.           Print "[@0F@S@0E@]ave changes, [@0F@K@0E@]ill changes:  ";
  567.           s5476 = ""
  568.           Do
  569.             Do
  570.  5834         s5468 = InKey(1213417543)
  571.             Loop Until s5468 <> ""
  572.             s65528_ = UCase(s5468)
  573.             If s65528_ = "S" Then
  574.               Open s4803 + s5472 + "." + s4949 For Output As 4
  575.               Print #4, s4959
  576.               Print #4, s4963
  577.               Print #4, s4967
  578.               Print #4, s4971
  579.               Print #4, s4975
  580.               Print #4, s4979
  581.               Print #4, s4993
  582.               Print #4, s4997
  583.               Print #4, s5001
  584.               Print #4, s5005
  585.               Print #4, s4839
  586.               Close 4
  587.               Open s4803 + s4949 + "-" + s5472 + ".TXT" For Output As 4
  588.               Print #4, "   " + s4959
  589.               Print #4, "   " + s4963
  590.               Print #4, "   " + s4967
  591.               Print #4, "   " + s4971
  592.               Print #4, "   " + s4975
  593.               Print #4, "   " + s4979
  594.               Print #4, "   " + s4993
  595.               Print #4, "   " + s4997
  596.               Print #4, "   " + s5001
  597.               Print #4, "   " + s5005
  598.               Print #4, "   " + s5009
  599.               Print #4, ""
  600.               Print #4, "CONTACT: " + Pad(t26_4843.s0, 25) + "  COMPANY: " + Pad(t26_4843.s28, 29)
  601.               Print #4, "OFFICE: " + Pad(t26_4843.s57, 13) + "      HOME: " + Pad(t26_4843.s70, 13) + "   " + LeftPad(t26_4843.s83, 8) + ":  " + Pad(t26_4843.s91, 13)
  602.               Print #4, ""
  603.               Print #4, ""
  604.               Print #4, "Information provided by advertiser and is subject to verification by user."
  605.               Print #4, Chr(12)
  606.               Close 4
  607.               If InputYesNo("Would you like to upload an attachment?  ", 1213417543) Then
  608.                 Print "Basic Instructions"
  609.                 s4799 = InputMask("Please enter the file type: [@0F@GIF@0E@], [@0F@PCX@0E@], [@0F@BMP@0E@], etc:  ", "XXX", "", 1213417543)
  610.                 ReceiveFile(s4803 + s4949 + "-" + s5472 + "." + s4799, 1213417543)
  611.                 Print "Received:  @0F@" + UCase(s4949) + "-" + s5472 + "." + UCase(s4799)
  612.                 Delay 3
  613.               End If
  614.  6610         GoTo 827
  615.             Else
  616.  6622         If s65528_ = "K" Then
  617.                 GoTo 827
  618.                 GoTo 6651
  619.               End If
  620.             End If
  621.  6651     Loop
  622.           GoTo 6680
  623.  6663     Print "This ad does not exist."
  624.           Delay 3
  625.  6680   Loop
  626.  6686   s5482 = s4803 + "*." + s4833
  627.         i5535 = FindFirst(s5482, 0, sr5486)
  628.         i5013 = 1
  629.         i5015 = 0
  630.  6736   Do While i5535 = 0
  631.           i5015 = i5015 + 1
  632.           s5537(i5015) = sr5486.Name
  633.           s9533(i5015) = Mid(s5537(i5015), 1, Len(s5537(i5015)) - 2)
  634.           i5535 = FindNext(sr5486)
  635.           i5013 = i5013 + 1
  636.         Loop
  637.  6953   i5013 = i5013 - 1
  638.         i5480 = i5015
  639.         If s4463 = "REGISTERED" Then
  640.           If i5480 > 999 Then
  641.             i5480 = 999
  642.           End If
  643.  7018   Else
  644.  7024     If i5480 > 10 Then
  645.             i5480 = 10
  646.           End If
  647.         End If
  648.  7046   If (i5015 = 0) = 0 Then GoTo 7180
  649.         Cls 
  650.         Print ""
  651.         Print ""
  652.         Print "             @08@┌─────────────────────────────────────────────────┐ "
  653.         Print "             @08@│@07@                                                 @08@│"
  654.         Print "             @08@│   @0F@There are currently no ads in this catagory.  @08@│"
  655.         Print "             @08@│@07@                                                 @08@│"
  656.         Print "             @08@│        @0F@       Please select another.            @08@│"
  657.         Print "             @08@│@07@                                                 @08@│"
  658.         Print "             @08@│@07@                                                 @08@│"
  659.         Print "             @08@└─────────────────────────────────────────────────┘"
  660.         Print ""
  661.         Print ""
  662.         WaitEnter 
  663.       Loop
  664.  7180 i5015 = 1
  665.  7187 Open s4803 + s5537(i5015) For Input As 5
  666.       Input #5, s4959
  667.       Input #5, s4963
  668.       Input #5, s4967
  669.       Input #5, s4971
  670.       Input #5, s4975
  671.       Input #5, s4979
  672.       Input #5, s4993
  673.       Input #5, s4997
  674.       Input #5, s5001
  675.       Input #5, s5005
  676.       Input #5, s4839
  677.       Close 5
  678.       Open s4803 + "WCADS.SEC" For Random As 3 Len = 104 '! This value should probably be replaced with a "SizeOf" expression
  679.       Get 3, Val(s4839), t26_4843 '! 104 bytes
  680.       Close 3
  681.       Print "@CLS@ @NOSTOP@@08@                                                        ┌──────────────────┐"
  682.       Print " @08@                                                        │     @0F@wcADS!       @08@│"
  683.       Print " @08@┌───────────────────────────────────────────────────────┘                  │"
  684.       Print " @08@│                                                                          │"
  685.       Print " @08@│   @0F@" + Pad(s4959, 68) + "  @08@ │"
  686.       Print " @08@│   @0F@" + Pad(s4963, 68) + "  @08@ │"
  687.       Print " @08@│   @0F@" + Pad(s4967, 68) + "  @08@ │"
  688.       Print " @08@│   @0F@" + Pad(s4971, 68) + "  @08@ │"
  689.       Print " @08@│   @0F@" + Pad(s4975, 68) + "  @08@ │"
  690.       Print " @08@│   @0F@" + Pad(s4979, 68) + "  @08@ │"
  691.       Print " @08@│   @0F@" + Pad(s4993, 68) + "  @08@ │"
  692.       Print " @08@│   @0F@" + Pad(s4997, 68) + "  @08@ │"
  693.       Print " @08@│   @0F@" + Pad(s5001, 68) + "  @08@ │"
  694.       Print " @08@│   @0F@" + Pad(s5005, 68) + "  @08@ │"
  695.       Print " @08@│                                                                         @08@ │"
  696.       Print " @08@│@0E@ Name   @0F@" + Pad(t26_4843.s0, 25) + "@0E@  Company  @0F@" + Pad(t26_4843.s28, 29) + "@08@ │"
  697.       Print " @08@│ @0E@    Office @0F@" + Pad(t26_4843.s57, 13) + "@0E@    Home @0F@" + Pad(t26_4843.s70, 13) + "@0E@ " + LeftPad(t26_4843.s83, 8) + " @0F@" + Pad(t26_4843.s91, 13) + "@08@    │"
  698.       Print " @08@└──────────────────────────────────────────────────────────────────────────┘"
  699.       Print ""
  700.       Print " @0E@[@0F@E@0E@]-mail advertiser, [@0F@A@0E@]ttachments, [@0F@N@0E@]ext ad, [@0F@P@0E@]revious ad, [@0F@Q@0E@]uit.  ";
  701.       s5476 = ""
  702.       Do
  703.         Do
  704.  7881     s13529 = InKey(1213417543)
  705.         Loop Until s13529 <> ""
  706.         s65524_ = UCase(s13529)
  707.         If s65524_ = "P" Then
  708.           i5015 = i5015 - 1
  709.           If i5015 < 1 Then
  710.             i5015 = 1
  711.           End If
  712.  7974     GoTo 7187
  713.         Else
  714.  7986     If s65524_ = "Q" Then
  715.             s4959 = ""
  716.             s4963 = ""
  717.             s4967 = ""
  718.             s4971 = ""
  719.             s4975 = ""
  720.             s4979 = ""
  721.             s4993 = ""
  722.             s4997 = ""
  723.             s5001 = ""
  724.             s5005 = ""
  725.             s4839 = ""
  726.             GoTo 827
  727.           Else
  728.  8114       If s65524_ = "E" Then
  729.               Cls 
  730.               mh4479.Flags = mh4479.Flags Or 1
  731.               mh4479.To = UCase(t26_4843.s0)
  732.               mh4479.From = User.Name
  733.               mh4479.Subject = s4959
  734.               If EditMessage(mh4479, "WCADS" + Str(Node), 15) Then
  735.                 AddMessage(mh4479, "WCADS" + Str(Node), "", i4807)
  736.                 Del "WCADS" + Str(Node)
  737.               End If
  738.  8284         GoTo 7187
  739.             Else
  740.  8296         If s65524_ = "N" Then
  741.                 i5015 = i5015 + 1
  742.                 If i5015 > i5480 Then
  743.                   i5015 = i5480
  744.                 End If
  745.  8355           GoTo 7187
  746.               Else
  747.  8367           If s65524_ = "A" Then
  748.                   s13533 = s4803 + s4833 + "-" + s9533(i5015) + ".*"
  749.                   i13537 = FindFirst(s13533, 0, sr13589)
  750.                   i13539 = 1
  751.                   i13587 = 0
  752.  8477             Do While i13537 = 0
  753.                     i13587 = i13587 + 1
  754.                     s13541(i13587) = sr13589.Name
  755.                     i13539 = i13539 + 1
  756.                     i13537 = FindNext(sr13589)
  757.                   Loop
  758.  8579